home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus Special 23
/
AMIGAplus Sonderheft 23 (2000)(Falke)(DE)[!].iso
/
PublicDomain
/
Anwendungen
/
TechnoIO_Install
/
Install
< prev
next >
Wrap
Text File
|
1999-12-07
|
3KB
|
118 lines
; ****************************************
; * *
; * TechnoIO-Installationsskript *
; * *
; * $VER: 0.2 (07.12.99) by J.Reinert *
; * *
; ****************************************
; *************************************************************************
; Texte zuweisen
; *************************************************************************
(set #AskDestDirMsg "Please select Destination for the TechnoIO-Drawer")
(set #CopyPrgs "Copy Programs")
(set #modifyuserstartup "add Entry to User-Startup")
(if (= @language "deutsch")
(
(set #AskDestDirMsg "Wählen Sie bitte das Ziel für die TechnoIO-Schublade")
(set #CopyPrgs "Programme kopieren")
(set #modifyuserstartup "Eintrag in User-Startup einfügen")
)
)
; *************************************************************************
; Beginn der Installation
; *************************************************************************
(complete 0)
(welcome)
; *************************************************************************
; Zielverzeichnis auswählen lassen
; *************************************************************************
(set #DestDir
(askdir
(prompt #AskDestDirMsg)
(help #askdir-help)
(default @default-dest)
)
)
(if (<> #DestDir "")
(
(complete 5)
(set #DestDir (tackon #DestDir "TechnoIO"))
(makedir #DestDir (infos))
; *************************************************************************
; Kopieren der Programme
; *************************************************************************
(copyfiles (prompt #CopyPrgs)
(source "Software")
(dest #DestDir)
(help @copyfiles-help)
(all)
(confirm "EXPERT")
)
; *************************************************************************
; Suchpfad in User-Startup einbinden
; *************************************************************************
(set cmd (cat "Path "#DestDir"/Commands "#DestDir"/ARexx "#DestDir"/Batch add"))
(startup "TechnoIO"
(prompt (cat #modifyuserstartup"\n\n"cmd))
(command cmd)
(help "")
)
)
)
(complete 80)
; *************************************************************************
; Kopieren der Librarys
; *************************************************************************
(copylib (source "Libs/wizard.library")
(dest "Libs:")
)
(copylib (source "Libs/TechnoIO.library")
(dest "Libs:")
)
(complete 95)
; *************************************************************************
; Aktuelles Verzeichnis setzen
; *************************************************************************
(if (= #DestDir "")
(
(set @default-dest "")
)
(
(set @default-dest #DestDir)
)
)
(complete 100)
; *************************************************************************
; Ende der Installation
; *************************************************************************